Think Pascal Program Radar